home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1996 #15 / Monster Media Number 15 (Monster Media)(July 1996).ISO / tbbs / prgsourc.zip / HOMES.ZIP / ETAG.PRG < prev    next >
Text File  |  1996-01-01  |  543b  |  33 lines
  1. PROCEDURE etag
  2.  
  3. PRIVATE cnt
  4.  
  5. COUNT TO cnt
  6. GOTO TOP
  7. x = 1
  8. y = 0
  9. DO WHILE x <= 50 
  10.    IF broker = brok
  11.       dummy = aIns(tarray,1)
  12.       tarray[1] = pic1
  13.       x = x + 1
  14.    ENDIF
  15.    y = y + 1
  16.    IF y < cnt
  17.       SKIP
  18.    ELSE
  19.       EXIT
  20.    ENDIF
  21. ENDDO
  22.  
  23. IF x = 50 .AND. y < cnt
  24.    DO BoxW WITH 5,16,9,62
  25.    @ 6,18 SAY "The VIEW command is limited to 50 listings."
  26.    @ 7,18 SAY "To view the listings for the entire agency,"
  27.    @ 8,18 SAY "view each broker's listings separately." 
  28.    key = InKey(4)
  29. ENDIF
  30.  
  31. RETURN
  32.  
  33.